home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / biz / swood / FW_Font_eng.lha / FW_Font-e / FontLook.fw.long < prev    next >
Text File  |  1997-04-27  |  5KB  |  229 lines
  1. /* Here you get an overview about your fonts
  2.  © Heiko Schröder / 97/04/27 / Mail: age@thepentagon.com*/
  3. R='0A'X
  4.  
  5. Address='FinalW'
  6. Options results
  7.  
  8. STATUS PORTNAME
  9. FW = result
  10. address = FW
  11.  
  12. SIGNAL ON BREAK_C
  13.  
  14. 'ShowMessage 2 0 "FontLook V2.72" "for individual fonts..." "(©) Heiko Schröder - 97/04/27" ":-)" "Ok" "(-:"'
  15. 'ShowMessage 1 1 "A T T E N T I O N !" "The macro needs an empty document!" "Clear the document?" "Yes" "Abort" ""'
  16. if result=2 then call BREAK_C
  17. Cleardoc Force
  18.  
  19. 'ShowMessage 2 0 "codes or layout" "" "" "codes" "layout" ""'
  20. cl=result
  21.  
  22. 'ShowMessage 2 0 "Screen output?" "" "" "normal" "speed" ""'
  23. ba=result
  24.  
  25. 'ShowMessage 1 0 "Do you need perforation signs?" "" "" "Yes" "No" ""'
  26. lm=result
  27.  
  28. /*minimize Window*/
  29. IF ba=2 THEN DO
  30.    status WINDOW
  31.    parse VAR result links oben width height minwidth minheight maxwidth maxheight
  32.    sizewindow minwidth minheight
  33. End
  34. GetDocItemPrefs Decimal
  35. Punkt=Result
  36. If Punkt="Comma" then DocItemPrefs Decimal Period
  37.  
  38. Font
  39. a=RC
  40.  
  41. If a=0 then do
  42.    Type d2c(32)
  43.    BackSpace
  44.    status FontPath
  45.    FullFontName=result
  46.    pos = max(index(FullFontName,':'),lastpos('/',FullFontName))
  47.    IF (pos~=0) THEN
  48.        FontName=RIGHT(FullFontName, LENGTH(FullFontName)-pos)
  49.    END
  50.  
  51.    IF ba=2 THEN View 20
  52.  
  53.    Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
  54.    SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  55.  
  56.    GraphicTool
  57.    LinePrefs LineWt .5
  58.    DrawLine 1 2 3.5 20 3.5
  59.    DrawLine 1 2 26 20 26
  60.  
  61.    If lm=1 then DrawLine 1 .5 14.85 1 14.85
  62.  
  63.    TextTool
  64.    If cl=1 then do
  65.  
  66.       Do i=0 to 13
  67.          SetTab i*1.3+0.8 Right
  68.       End
  69.  
  70.       Justify Center
  71.       Font Softsans
  72.       FontSize 18
  73.       Type FontName||R||R
  74.  
  75.       a=0
  76.  
  77.       DO w=1 to 15
  78.  
  79.          Font Softsans
  80.          FontSize 8
  81.          DO x=a+33 to a+46
  82.              Type d2c(9) || x || d2c(32) || d2c(x)
  83.          END
  84.  
  85.          Type R
  86.  
  87.          Font FontName
  88.          FontSize 24
  89.          DO x=a+33 to a+46
  90.              Type d2c(9)
  91.             Type d2c(x)
  92.          END
  93.  
  94.          Type R
  95.  
  96.          a=a+14
  97.  
  98.       END
  99.  
  100.       Font Softsans
  101.       FontSize 8
  102.       DO x=a+33 to a+45
  103.           Type d2c(9) || x || d2c(32) || d2c(x)
  104.       END
  105.  
  106.       Type d2c(9)||R
  107.  
  108.       Font FontName
  109.       FontSize 24
  110.       DO x=a+33 to a+45
  111.           Type d2c(9)
  112.          Type d2c(x)
  113.       END
  114.  
  115.       Type d2c(9)||R
  116.       FontSize 12
  117.       Type d2c(9)||R
  118.       Font Softsans
  119.  
  120.       FontSize 8
  121.       Justify Right
  122.       Type Date(O)" - "FullFontName
  123.  
  124.    END
  125.  
  126. /* --------- */
  127.  
  128.    If cl=2 then do
  129.  
  130.       Justify Center
  131.       Font Softsans
  132.       FontSize 18
  133.       Type FontName||R
  134.  
  135.       Justify Left
  136.       Font FontName
  137.       FontSize 8
  138.       Type R||"This is 8-point type - not easy to read!"||R
  139.  
  140.       FontSize 9
  141.       Type "9-Point type is about the smallest readable size."||R
  142.  
  143.       FontSize 10
  144.       Type "With 10-point type, we have a normal text size."||R
  145.  
  146.       FontSize 12
  147.       Type "With some Fonts, 12-point type is easier to read."||R
  148.  
  149.       FontSize 14
  150.       Type "14-point type is good for subheadings."||R
  151.  
  152.       FontSize 16
  153.       Type "For larger subheadings, try 16-point type."||R
  154.  
  155.       FontSize 18
  156.       Type "18-point type makes nice small headlines."||R
  157.  
  158.       FontSize 24
  159.       Type "24-point type is for medium headlines."||R
  160.  
  161.       FontSize 36
  162.       Type "36-point is for larger ones."||R
  163.  
  164.       FontSize 48
  165.       Type "48-point almost shouts!"||R||R
  166.  
  167.       FontSize 12
  168.       Font SoftSans
  169.       Type "NORMAL"||R
  170.  
  171.       FontSize 10
  172.       Font FontName
  173.       Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R
  174.       Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R
  175.       Type "The quick brown fox jumps over the lazy dog."||R||R||R
  176.  
  177.       FontSize 12
  178.       Font SoftSans
  179.       Type "EXTENDED CHARACTERS"||R
  180.  
  181.       FontSize 10
  182.       Font FontName
  183.       j=0
  184.       Do i=1 to 4
  185.          Do k=128+j to 159+j
  186.             Type d2c(k)
  187.          End
  188.          Type R
  189.          j=j+32
  190.       End
  191.       Status BodyTextHeight
  192.       th=result
  193.       FG=26.24-2.113-th
  194.       FG=Trunc(FG*8/0.34)
  195.       FontSize FG
  196.       Type d2c(9)
  197.       Font SoftSans
  198.       FontSize 8
  199.       Type R
  200.       Justify Right
  201.       Type Date(O)" - "FullFontName
  202.    End
  203.  
  204.    call WH
  205.  
  206.    'ShowMessage 2 1 "Whats next?" "" "" "save" "print" "abort"'
  207.    If result=1 then Save
  208.    If result=2 then Print
  209. END
  210.  
  211. 'ShowMessage 2 0 "Thanx for using." "" "" "@-`-" "Please" ":-))"'
  212.  
  213. EXIT
  214.  
  215. BREAK_C:
  216.    'ShowMessage 1 1 "Macro aborted..." "" "" "I know..." "" ""'
  217.    call WH
  218.    address "REXX"
  219.    Address command "delete ram:fonts QUIET"
  220.    EXIT
  221.  
  222. WH:
  223.    If ba=2 then do
  224.       View
  225.       sizewindow width height
  226.    End
  227.    If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  228. Return
  229.